home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilcli / mscclcmd.lha / Examples / Startup-Sequence < prev    next >
Text File  |  1996-10-01  |  5KB  |  172 lines
  1. FailAt 21
  2. CheckButton b
  3. If ERROR
  4.   SetKeyboard DEVS:Keymaps/D
  5.   Quit
  6. EndIf
  7. AddMem 8C00000 8D00000 PRI 41 NAME FastBank3
  8. CheckButton r
  9. If ERROR
  10.   SetPatch QUIET NOAGA
  11.   Set AGA OFF
  12. ;  SetPatch QUIET
  13. ;  Set AGA ON
  14. ;  SegTracker
  15. ;  Run >NIL: Sushi ON >RAM:Ser.log
  16. ;  Run >NIL: MungWall
  17. ;  Run >NIL: SYS:System/Cyberguard >NIL: PCLINES 4 SHOWDISS DISSLINES 4 FILE RAM:Enforcer.log
  18. Else
  19.   Date >RAM:CDate
  20.   Search >NIL: FROM RAM:CDate SEARCH "(07|09|10|11|12|13|14|15|16|17|18|19|20|21):??:??" PATTERN
  21.   If NOT WARN
  22.     ReverseMem >NIL: CHIPONLY
  23.     Run >NIL: PlayPT SYS:Storage/mod.bootmuzak END
  24.   EndIf
  25.   SetPatch QUIET
  26.   ReverseMem >NIL: OFF
  27.   Set AGA ON
  28. EndIf
  29.  
  30. CheckButton l
  31. If ERROR
  32.   MakeDir RAM:T.cd0 RAM:ENV.cd0
  33.   Assign >NIL: T: RAM:T.cd0
  34.   Assign >NIL: ENV: RAM:ENV.cd0
  35.   Assign >NIL: KEYMAPS: DEVS:Keymaps
  36.   Assign >NIL: LOCALE: SYS:Locale
  37.   Copy SYS:Prefs/Presets/CDBoot ENV: ALL QUIET
  38. ;  IPrefs
  39.   CPU
  40.   RequestChoice >ENV:Choice TITLE "CD-Boot Selector" BODY "Do you want to boot the*NCD32 Emulation or*Nthe regular CD-Startup?" GADGETS "CD32|Normal CD|Cancel"
  41.   If VAL $Choice EQ 2
  42.     Mount CD0:
  43.     RequestChoice >ENV:Choice TITLE "CD-Boot Selector" BODY "Choose start method:" GADGETS "Startup-Sequence|Executeable|Script"
  44.     If $Choice EQ 1
  45.       SetEnv Script S:Startup-Sequence
  46.       CD0:
  47.     EndIf
  48.     If VAL $Choice EQ 0
  49.       RequestFile >ENV:CD DRAWER CD0: TITLE "Choose current directory!" POSITIVE "Select" NOICONS
  50.       CD $CD
  51.       RequestFile >ENV:Script TITLE "Choose script!" POSITIVE "Boot" NOICONS
  52.     EndIf
  53.     If VAL $Choice EQ 2
  54.       RequestFile >ENV:CD DRAWER CD0: TITLE "Choose current directory!" POSITIVE "Select" NOICONS
  55.       CD $CD
  56.       RequestFile >ENV:Prg TITLE "Choose program!" POSITIVE "Launch"
  57.       Echo >ENV:Prg2 $Prg
  58.       Assign >NIL: SYS: CD0:
  59.       Assign >NIL: FONTS: SYS:Fonts ADD
  60.       Assign >NIL: L: SYS:L ADD
  61.       Assign >NIL: LIBS: SYS:Libs ADD
  62.       Assign >NIL: DEVS: SYS:Devs ADD
  63.       Assign >NIL: S: SYS:S
  64.       Assign >NIL: C: SYS:C ADD
  65.       Path CD0: C:
  66.       $Prg2
  67.     Else
  68.       Assign >NIL: SYS: CD0:
  69.       Assign >NIL: FONTS: SYS:Fonts ADD
  70.       Assign >NIL: L: SYS:L ADD
  71.       Assign >NIL: LIBS: SYS:Libs ADD
  72.       Assign >NIL: DEVS: SYS:Devs ADD
  73.       Assign >NIL: S: SYS:S
  74.       Assign >NIL: C: SYS:C ADD
  75.       Path CD0: C:
  76.       Execute $Script
  77.     EndIf
  78.     DH0:C/Assign >NIL: C: DH0:C
  79.     Assign >NIL: SYS: DH0:
  80.     Assign >NIL: S: SYS:S
  81.   EndIf
  82.   If $Choice EQ 1
  83. ;    Mount CD0: FROM SYS:Storage/DOSDrivers/AMICD0
  84.     Mount CD0:
  85.     DH1:Utilities/CD-Tools/CD32/CD32 CD0:
  86.   EndIf
  87. EndIf 
  88. Resident >NIL: C:Assign PURE
  89. If $AGA EQ ON
  90.   MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
  91.  
  92.   Assign >NIL: ENV: RAM:ENV
  93.   Assign >NIL: T: RAM:T
  94.   Copy ENVARC:Sys/Overscan.prefs ENV:Sys
  95. ;  Copy ENVARC:Cybergraphics ENV:Cybergraphics ALL QUIET
  96.   
  97.   DEVS:Monitors/Super72
  98. ;  DEVS:Monitors/Cybervision
  99.  
  100.   Search >NIL: FROM RAM:CDate SEARCH "(mon|tues|wednes|thurs|fri||sun)#?" PATTERN
  101.   If NOT WARN
  102.     Search >NIL: FROM RAM:CDate SEARCH "(06|08):??:??" PATTERN
  103.     If NOT WARN
  104.       SetEnv GoodMorning 1
  105.       Skip NoPic
  106.     EndIf
  107.   EndIf
  108.   SetEnv GoodMorning 0
  109.   CheckButton l
  110.   If Not Error
  111.     ReverseMem >NIL: CHIPONLY
  112.     PicBoot DH1:Grafik/BootLogos/#? FJ FI 2 FO 3 BB DL 150 P D
  113.     ReverseMem >NIL: OFF
  114.   EndIf
  115.   Lab NoPic
  116.  
  117.   Assign >NIL: KEYMAPS: DEVS:Keymaps
  118.   Assign >NIL: LOCALE: SYS:Locale
  119.   Assign >NIL: FONTS: DH1:Backs/Fonts
  120.   Assign >NIL: LIBS: SYS:Classes ADD
  121.   Assign >NIL: CLIPS: RAM:Clipboards
  122.   Assign >NIL: REXX: S: DEFER
  123.   Assign >NIL: PRINTERS: DEVS:Printers
  124.   Assign >NIL: HELP: LOCALE:Help DEFER
  125.   Copy >NIL: ENVARC:#? ENV: ALL NOREQ
  126.  
  127.   FastIPrefs
  128.  
  129.   BindDrivers
  130.   Assign CON: DISMOUNT
  131.   Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  132.  
  133.   DEVS:Monitors/Euro36
  134.   DEVS:Monitors/Euro72
  135.   DEVS:Monitors/Multiscan
  136.   DEVS:Monitors/NTSC
  137.   DEVS:Monitors/PAL
  138. Else
  139.   MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
  140.   Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
  141.   Assign >NIL: ENV: RAM:ENV
  142.   Assign >NIL: KEYMAPS: DEVS:Keymaps
  143.   Assign >NIL: LOCALE: SYS:Locale
  144.   Assign >NIL: FONTS: DH1:Backs/Fonts
  145.   Assign >NIL: LIBS: SYS:Classes ADD
  146.   Assign >NIL: T: RAM:T
  147.   Assign >NIL: CLIPS: RAM:Clipboards
  148.   Assign >NIL: REXX: S: DEFER
  149.   Assign >NIL: PRINTERS: DEVS:Printers
  150.   Assign >NIL: HELP: LOCALE:Help DEFER
  151.   Copy SYS:Prefs/Presets/screenmode.prefs ENV:Sys
  152.   Copy SYS:Prefs/Presets/pointer.prefs ENV:Sys
  153.   BindDrivers
  154.   Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  155.  
  156.   DEVS:Monitors/Super72
  157.   DEVS:Monitors/Euro36
  158.   DEVS:Monitors/Euro72
  159.   DEVS:Monitors/Multiscan
  160.   DEVS:Monitors/NTSC
  161.   DEVS:Monitors/PAL 
  162.   FastIPrefs
  163. EndIf
  164.  
  165. Execute S:User-Startup
  166. Execute S:ExtUser-Startup
  167.  
  168. Delete >NIL: RAM:CDate
  169.  
  170. LoadWB -debug
  171. EndCLI >NIL:
  172.